home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 June / Software of the Month Club 1998 June.iso / pc / dos / edu / spanhdos / install.fil < prev    next >
Text File  |  1998-04-15  |  5KB  |  184 lines
  1. '' Install Script for SPANISH HELPER Julio del 96  ***SWV FIL***
  2. ' restore the following:
  3. ' space command
  4. ' pauses in startup
  5. BACKGROUND 63
  6. LANGUAGE ENGLISH
  7. BORDER 1
  8. TELESCOPE OFF
  9. WINOPEN 18 2 95
  10. "Pik A Program "
  11. ""
  12. "presents"
  13. ""
  14. "SPANISH HELPER"
  15. ""
  16. ""
  17. WINUPDATE +11 +5 222
  18. "SPANISH HELPER "
  19. PAUSE 100
  20.  
  21. TELESCOPE ON
  22. SHADOW ON
  23. :which_drive
  24. SPACE 600                         ' Checking for 2.4 meg required.
  25. DRIVE C 0 12 31 15 32 14 79
  26. PATH \SPANISH 0 12 31 15 32 14 79
  27.  
  28. exist SPAN.1
  29. JUMP.YES DOES_EXIST1
  30. JUMP.NO NOT_EXIST1
  31. :NOT_EXIST1
  32. WINOPEN 0 50 79
  33. ""
  34. " The file Span.1 is not on the  "
  35. " current installation disk"
  36. ""
  37. " Do you wish to continue with the "
  38. " current installation (Y/N)? "
  39. ASK 49 31
  40. pause 150
  41. JUMP.NO STOP_INSTALL
  42. WINCLOSE
  43. DISK 0 Span.1 0 0 31
  44. :DOES_EXIST1
  45. unpack Span.1 12 10 31 32 14 79
  46. JUMP.FAIL INSTALL_FAILURE
  47.  
  48. WINOPEN 0 12 79
  49. ""
  50. "Spanish Helper has now been installed on your hard drive"
  51. ""
  52. "                     To run the program..."
  53. "Change to the drive and directory you have chosen in this setup (usually"
  54. "C:\SPANISH)."
  55. "         Type "GO" and then hit the enter or Return key   "
  56. "   We hope you enjoy learning with Spanish Helper so much that you'll"
  57. "   send in the registration form to get the rest of the lessons!"
  58. ""
  59. "                Press the [Enter] key to continue."
  60. ""
  61. ""
  62. WINUPDATE +30 +3 30                       ' display text in yellow
  63. "~1~2"
  64.  
  65. WINUPDATE +30 +12 27                       ' cyan
  66. "THANK YOU"
  67.  
  68. ""
  69. WAIT +36 +12
  70.  
  71. WINCLOSE
  72. '-------------------------
  73. WINOPEN 0 12 31
  74. "Would you like to SEE the USA order form for Spanish Helper?"
  75. ""
  76.  
  77. WINUPDATE +31 +2 30           ' yellow text
  78. "(Y or N)"
  79.  
  80. ASK +39 +2
  81. WINCLOSE                      ' close the above window
  82. JUMP.NO PRINT_USA.TXT
  83. VIEW ~1~2\order.txt 79 31
  84.  
  85. :PRINT_USA.TXT
  86.  
  87. WINOPEN 0 12 31
  88. "Would you like to PRINT the USA order form for Spanish Helper?"
  89. ""
  90.  
  91. WINUPDATE +31 +2 30           ' yellow text
  92. "(Y or N)"
  93.  
  94. ASK +39 +2
  95. WINCLOSE                      ' close the above window
  96. JUMP.NO EXIT
  97.  
  98. WINOPEN 0 0 31
  99. ""
  100. "  Printing the order form ...  "
  101. ""
  102. PRINT ~1~2\order.txt
  103. WINCLOSE                      ' close the above window
  104. JUMP.FAIL PRINTER_ERROR       ' jump on fatal error
  105. JUMP EXIT                     ' print successful, skip next
  106.  
  107.  
  108. '-------------------------------------------------
  109. :PRINTER_ERROR                ' label for error condition
  110. WINOPEN 0 12 79                ' open the following window
  111. "Your printer is not responding.  Possible problems:"
  112. "   -- Printer is not turned on"
  113. "   -- Printer is out of paper"
  114. "   -- Printer is not attached to LPT1 (parallel port 1)"
  115. ""
  116. "Do you want to try to print again  (Y or N)?"
  117. ASK 57 18                     ' prompt for Y or N key  (fixed cursor position)
  118. WINCLOSE                      ' close this window
  119. JUMP.YES PRINT_INSTALL.TXT    ' y key pressed, print
  120.  
  121. :EXIT
  122.  
  123. WINOPEN 0 12 31                ' window is centered on screen
  124. "                 Thank you for using "
  125. ""
  126. "                   Spanish Helper"
  127. ""
  128. "You have a fully working shareware evaluation copy.  We hope"
  129. "    that you will be fluent in Spanish in no time!"
  130. ""
  131. "               Please register your shareware!"
  132. ""
  133. WINUPDATE +17 +8 30
  134. "Please register your shareware!"
  135. WINUPDATE +14 +10 30                     ' write on top of bottom border
  136. "┤ Press the [Enter] key to continue ├"  ' (good when space is tight)
  137. WINUPDATE +24 +11 30
  138. "[Enter]"
  139. WAIT +47 +11
  140. WINCLOSE
  141.  
  142. shell
  143. "~1"
  144. "cd ~2"
  145.  
  146. ' display our bbs phone number
  147. BORDER 2
  148. WINOPEN 0 12 47
  149. "  If you're not sure you have the latest shareware copy of"
  150. "Spanish Helper, you can call the following addresses:"
  151. "     
  152. "       INTERNET: www.pik.com"
  153. "       INTERNET: http://ourworld.compuserve.com/homepages/gbb"
  154. "       Compuserve: GO PIKAPRO"
  155. ""
  156. ""
  157. ""
  158. "        Press the [Enter] key to run Spanish Helper."
  159.  
  160. WAIT +36 +10                                  ' wait for the enter key
  161.  
  162. RUN ~1\~2\go
  163. END            ' exit the system normally
  164. '-------------------------------------------
  165. :INSTALL_FAILURE
  166. WINOPEN 0 12 79
  167. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
  168. ""
  169. "Possible reasons:"
  170. "   -- The floppy disk was removed prior to completion."
  171. "   -- The floppy disk was damaged during shipping."
  172. "   -- Your disk drive is out of alignment."
  173. "   -- The files were corrupted some other way."
  174. ""
  175. WINCLOSE
  176. WINOPEN 0 12 31
  177. ""
  178. "      Press [Enter] to Quit."
  179. WAIT 47 15
  180.  
  181. :STOP_INSTALL
  182. winclose
  183. END
  184.